home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 25 / CU Amiga Magazine's Super CD-ROM 25 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-08].iso / CUCD / Programming / GMS / GMSDev / EModules / gms / misc / time.e next >
Encoding:
Text File  |  1998-03-16  |  780 b   |  33 lines

  1. /*
  2. **  $VER: time.e V1.0
  3. **
  4. **  Time Object.
  5. **
  6. **  (C) Copyright 1996-1998 DreamWorld Productions.
  7. **      All Rights Reserved.
  8. */
  9.  
  10. OPT MODULE
  11. OPT EXPORT
  12. OPT PREPROCESS
  13.  
  14. MODULE 'gms/dpkernel/dpkernel','gms/system/register'
  15.  
  16. /****************************************************************************
  17. ** Time Object.
  18. */
  19.  
  20. CONST VER_TIME = 1
  21.  
  22. OBJECT time
  23.   head[1] :ARRAY OF head  /* Standard header */
  24.   year    :INT            /* Year   (-ve for BC, +ve for AD) */
  25.   month   :INT            /* Month  (1 - 12) */
  26.   day     :INT            /* Day    (1 - 31) */
  27.   hour    :INT            /* Hour   (0 - 23) */
  28.   minute  :INT            /* Minute (0 - 59) */
  29.   second  :INT            /* Second (0 - 59) */
  30.   micro   :INT            /* Micro  (0 - 99 micro-seconds) */
  31. ENDOBJECT
  32.  
  33.